home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / l.aut < prev    next >
Text File  |  1991-10-18  |  3KB  |  174 lines
  1. IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
  2.  $1="Q"
  3. ENDIF
  4. IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
  5. ECHO "\r^G"
  6. ECHO "L.AUT：フルオートモードではデータライブラリはスキップされます\r"
  7. END
  8. ENDIF
  9.  
  10. LABEL L2
  11. SEND "LIB\r",1
  12. LOOK
  13.  CASE "本フォーラムでは"
  14.   LOOK
  15.    CASE "^J＞"
  16.    CASE ">"
  17.   FREE
  18.   END
  19.  CASE "^J＞"
  20. FREE
  21.  
  22. ECHO "\r^Gライブラリ番号を選んでください (+ﾘﾀｰﾝ) ＞\r\r\r"
  23. INPUT $3
  24.  
  25. SEND "$3\r",1
  26. LOOK
  27.  CASE "コマンドを入力して"
  28.   LOOK
  29.    CASE "^J＞"
  30.    CASE ">"
  31.   FREE
  32.   GOTO L2
  33.  CASE "^JLIB>"
  34. FREE
  35.  
  36. SEND "SET PAGE ON\r",1
  37. WAIT "^JLIB>"
  38. CMD D "$900:\\$60\\LIB$3.DAT"
  39. SEND "1\r",1
  40.  
  41. LABEL LS
  42. LOOK
  43.  CASE "^J－該当するデータは"
  44.   WAIT "^JLIB>"
  45.   CMD D
  46.   GOTO L1
  47.  CASE "^J＞"
  48.  CASE "^Jmore>"
  49.   ECHO "^Gもう少し探してみますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  50.   LOOKKEY 60
  51.    CASE "Y"
  52.     SEND "\r",1
  53.     GOTO LS
  54.    CASE "y"
  55.     SEND "\r",1
  56.     GOTO LS
  57.    CASE "N"
  58.    CASE "n"
  59.    CASE/TIMEOUT
  60.   FREE
  61. FREE
  62. CMD D    ;"LIB$3.DAT" のクローズ
  63.  
  64. ECHO "\r^G参照したいものがありますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  65. LOOKKEY 60
  66.  CASE "Y"
  67.  CASE "y"
  68.  CASE "N"
  69.   GOTO L1
  70.  CASE "n"
  71.   GOTO L1
  72.  CASE/TIMEOUT
  73.   GOTO L1
  74. FREE
  75.  
  76. SEND "SET PAGE OFF\r"
  77. LOOK
  78.  CASE "^J＞"
  79.  CASE ">"
  80. FREE
  81. ECHO "^Gではその番号を入力して下さい\r"
  82. ECHO "     複数指定するときの例：1,3,5   1-3,5 (+ﾘﾀｰﾝ) ＞"
  83.  
  84. CMD D "$900:\\$60\\LIB$943.LOG"
  85.  
  86. LABEL L3
  87. LOOK
  88.  CASE "コマンドを入力して"
  89.   WAIT "^J＞"
  90.   ECHO "^G正しく入力すれば立ち直ります ＞"
  91.   GOTO L3
  92.  CASE "^JLIB>"
  93.   CMD D            ;ここがﾙｰﾁﾝの終点
  94.   GOTO L1
  95.  CASE "^Jデータ"
  96.   SCAN "：" $1 "." $4 " ",3
  97.   WAIT "^J処理 (1:ダウンロード"
  98.   WAIT "^J＞"
  99.   ECHO "^Gそれでは決めて下さい (+ﾘﾀｰﾝ) ＞"
  100.   LOOK
  101.    CASE "1\r"
  102.     GOTO L4
  103.    CASE "2\r"
  104.     WAIT "^J改行キーを押して下さい"
  105.     WAIT "^J＞"
  106.     SEND "\r",1
  107.    CASE "S\r"
  108.    CASE "s\r"
  109.    CASE "E\r"
  110.    CASE "e\r"
  111.   FREE
  112.   GOTO L3
  113. FREE
  114.  
  115. LABEL L4
  116. LOOK
  117.  CASE "^Jプロトコル (1:XMODEM  2:無手順"
  118.   WAIT "^J："
  119.   SEND "3\r",1
  120.  CASE "^Jプロトコル (1:XMODEM  2:BPLUS"
  121.   WAIT "^J："
  122.   SEND "2\r",1
  123. FREE
  124.  
  125. WAIT "^Jファイル名 (改行のみ"
  126. WAIT "^J："
  127. ECHO "^Gマクロが取得したダウンロード名：<< $1.$4 >>\r"
  128. ECHO "  これででいいですか？ (Y/N) (E:ﾀﾞｳﾝﾛｰﾄﾞ中止) (ﾘﾀｰﾝｷｰ不要) ＞"
  129. LOOKKEY 60
  130.  CASE "Y"
  131.   SEND "$1.$4\r",1
  132.  CASE "y"
  133.   SEND "$1.$4\r",1
  134.  CASE "N"
  135.   ECHO "\r^G ファイル名を入力して下さい (+ﾘﾀｰﾝ)："
  136.  CASE "n"
  137.   ECHO "\r^G ファイル名を入力して下さい (+ﾘﾀｰﾝ)："
  138.  CASE "E"
  139.   GOTO L5
  140.  CASE "e"
  141.   GOTO L5
  142.  CASE/TIMEOUT
  143.   GOTO L5
  144. FREE
  145.  
  146. WAIT "－ダウンロード開始－"
  147. WAIT ""
  148. CMD ! "B.BAT"
  149. GOTO L3
  150.  
  151. LABEL L5
  152. SEND "\r"
  153. CMD D
  154. ECHO "^Gコノヤロー！ 世話焼かすんじゃねえよ！\r"
  155. WAIT "^Jプロトコル (1:XMODEM"
  156. WAIT "^J："
  157. SEND "E\r",1
  158. WAIT "^J処理 (1:ダウンロード"
  159. WAIT "^J＞"
  160.  
  161. LABEL L1
  162. ECHO "\r^GＤＬのダウンロードを続けますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  163. LOOKKEY 60
  164.  CASE "Y"
  165.   GOTO L2
  166.  CASE "y"
  167.   GOTO L2
  168.  CASE "N"
  169.  CASE "n"
  170.  CASE/TIMEOUT
  171. FREE
  172. END
  173.  
  174.